home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MegaSort Stack.cpt / MegaSort Stack / card_2983.txt < prev    next >
Text File  |  1990-12-13  |  3KB  |  89 lines
  1. -- card: 2983 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2571
  5. -- name: 
  6.  
  7.  
  8. -- part 26 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=349 top=44 right=66 bottom=449
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Sort
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   Put AnswerALot("How many keys?",3,2,1,0) into numKeys
  23.   Put "Put megaSort(fld Unsorted," & quote & "*" & quote & ",return" into temp
  24.   put temp into fld "Command"
  25.   repeat with I=1 to numKeys
  26.     Put "," & quote after temp
  27.     Put return & "                     ," & quote after fld "Command"
  28.     Put answerALot("Which field for key " & I & "?",6,5,4,3,2,1) into it
  29.     Put "F=" & it after temp
  30.     Put "F=" & it after fld "Command"
  31.     Put answerALot("What type of sort for key " & I & "?", "Date","Number","In'tl","ASCII") into it
  32.     Put ",T=" & char 1 of it after temp
  33.     Put ",T=" & char 1 of it after fld "Command"
  34.     Put answerALot("Which direction for key " & I & "?", "Descending","Ascending") into it
  35.     Put ",D=" & char 1 of it & quote after temp
  36.     Put ",D=" & char 1 of it & quote after fld "Command"
  37.   end repeat
  38.   Put ") into fld sorted" after temp
  39.   Put ") into fld sorted" after fld "Command"
  40.   do temp
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 28 (field)
  46. -- low flags: 01
  47. -- high flags: 0001
  48. -- rect: left=310 top=101 right=233 bottom=507
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 3
  53. -- text size: 12
  54. -- style flags: 256
  55. -- line height: 16
  56. -- part name: 
  57.  
  58.  
  59. -- part contents for background part 4
  60. ----- text -----
  61. 1/24/90*MR395*$22.23*mike**1163
  62. 1/3/90*MR305*$10.00*alice*Jéan*1014
  63. 1/3/90*MR302*$9.50*Joe*L√∏u*925
  64. 1/7/90*MR303*$10.00*Jack*Bòll*1015
  65. 1/24/90*MR395*$9.75*nancy**1160
  66. 1/3/90*MR301*$10.00*Sue*ΔíIOU*1014
  67.  
  68. -- part contents for background part 5
  69. ----- text -----
  70. 1/3/90*MR301*$10.00*Sue*ΔíIOU*1014
  71. 1/3/90*MR302*$9.50*Joe*L√∏u*925
  72. 1/3/90*MR305*$10.00*alice*Jéan*1014
  73. 1/7/90*MR303*$10.00*Jack*Bòll*1015
  74. 1/24/90*MR395*$22.23*mike**1163
  75. 1/24/90*MR395*$9.75*nancy**1160
  76.  
  77.  
  78. -- part contents for background part 6
  79. ----- text -----
  80. Put megaSort(fld Unsorted,"*",return
  81.                      ,"F=1,T=D,D=A"
  82.                      ,"F=2,T=A,D=A"
  83.                      ,"F=3,T=N,D=D") into fld sorted
  84.  
  85. -- part contents for card part 28
  86. ----- text -----
  87. This is an example of sorting on multiple fields.
  88.  
  89. Clicking on the above button will step you through a series of dialogs to build the sort command parameters.